home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok29.lha / Disky / FileRequest.def < prev    next >
Text File  |  1993-08-15  |  4KB  |  89 lines
  1. (* -------------------------------------------------------------------------
  2.   :Program.       FileRequest
  3.   :Contents.      exportiert Prozedur zum erzeugen eines FileRequesters
  4.   :Author.        Kai Bolay
  5.   :Address.       Hoffmannstraße 168, 7250 Leonberg 1
  6.   :Phone.         07152/22135
  7.   :History.       v1.01 Kai Bolay 28-Jul-89 little changes
  8.   :History.       v1.02 Kai Bolay 24-Nov-89 added dirExt (Bene's Tip!)
  9.   :Copyright.     PD
  10.   :Language.      Modula-2
  11.   :Translator.    M2Amiga 3.2d
  12.   :Imports.       IntuiStruct1.3 [bne]
  13. ------------------------------------------------------------------------- *)
  14.  
  15. DEFINITION MODULE FileRequest;
  16.  
  17. FROM SYSTEM    IMPORT ADDRESS;
  18. FROM Exec      IMPORT UByte;
  19. FROM Graphics  IMPORT TextAttrPtr;
  20. FROM Intuition IMPORT ScreenPtr;
  21.  
  22. TYPE DiskyFlags = (suffixGad, watchSuffix, onlyFiles, displayInfo, noSort,
  23.                    german, fileExists, ownScreen, ownPosition, ownColors,
  24.                    ownFont, startPath, callFileTest, dirExt, df14, df15);
  25.      DiskyFlagSet = SET OF DiskyFlags;
  26.  
  27.      (* suffixGad     : Suffix kann geändert werden (watchSuffix setzen!)
  28.         watchSuffix   : Es wird das Suffix beachtet (auch ohne Gadget)
  29.         onlyFiles     : Kein Directory-Wechsel möglich
  30.         displayInfo   : Es werden '.info' Files angezeigt
  31.         noSort        : Das Directory wird nicht nach dem Alphabet sortiert
  32.         german        : Deutsche Beschriftung der Gadgets
  33.         fileExists    : DiskyOK nur wenn File existiert
  34.         ownScreen     : Disky nicht auf WB (DI.screen # NIL)
  35.         ownPosition   : x, y Position wird beachtet
  36.         ownColors     : Es werden die User-Farben benutzt
  37.         ownFont       : Es wird der User-Zeichensatz benutzt (Sollte 8x8)
  38.         startPath     : Der angegebene Pfad gilt als Ausgangspunkt
  39.                         (normal: dir / file / (suffix) )
  40.         callFileTest  : Die in DI.fileTestProc angegebene Prozedur wird
  41.                         aufgerufen, das Resultat bestimmt ob das File
  42.                         in die Liste aufgenommen wird
  43.         dirExt        : An Dirs wird " (dir)" angehängt
  44.      *)
  45.  
  46.      DiskyResult = (DiskyOK, DiskyCancel, ErrNoMem, ErrNoReq);
  47.  
  48.      (* DiskyOK     : OK-Gadget oder Doppelklick auf File-Gadget
  49.         DiskyCancel : Cancel-Gadget
  50.         ErrNoMem    : Nicht genügend freier Speicher
  51.         ErrNoReq    : Kann Requester nicht öffnen
  52.      *)
  53.  
  54.      DiskyInfo = RECORD
  55.                     title         : ADDRESS;
  56.                     (* ADR des Window-Titels *)
  57.                     dir           : ARRAY [0..150] OF CHAR;
  58.                     (* Directory *)
  59.                     file          : ARRAY [0..30] OF CHAR;
  60.                     (* File *)
  61.                     suffix        : ARRAY [0..5] OF CHAR;
  62.                     (* Suffix *)
  63.                     path          : ARRAY [0..200] OF CHAR;
  64.                     (* Pfad *)
  65.                     flags         : DiskyFlagSet;
  66.                     (* siehe oben *)
  67.                     screen        : ScreenPtr;
  68.                     (* Zeiger auf Screen für das Disky-Window oder NIL *)
  69.                     x, y          : INTEGER;
  70.                     (* Position des Disky-Windows *)
  71.                     gadgetPen     : UByte;
  72.                     (* Zeichenfarbe für Gadgets *)
  73.                     filePen       : UByte;
  74.                     (* Zeichenfarbe für Files *)
  75.                     dirPen        : UByte;
  76.                     (* Zeichenfarbe für Dirs *)
  77.                     backFillPen   : UByte;
  78.                     (* Hintergrundfarbe (nicht implementiert) *)
  79.                     font          : TextAttrPtr;
  80.                     (* Zeichensatz *)
  81.                     fileTestProc  : PROCEDURE (VAR ARRAY OF CHAR) : BOOLEAN;
  82.                     (* Zusatzprozedur zum Filetest *)
  83.                  END; (* RECORD *)
  84.  
  85.  
  86. PROCEDURE Disky (VAR DI : DiskyInfo) : DiskyResult;
  87.  
  88. END FileRequest.
  89.